home *** CD-ROM | disk | FTP | other *** search
/ Back to Campus / Back to Campus - Computer Life (Ziff-Davis)(1995).ISO / waol25 / setup.exe / AOLNET.CCL
Text File  |  1995-05-31  |  16KB  |  449 lines
  1. !----------------------------------------------------------------------
  2. !   AOLNET.CCL
  3. !----------------------------------------------------------------------
  4.  
  5. Title           "AOLnet"
  6. ID              4
  7. DriverType      1
  8.  
  9. -Label 0                { Label 0 } 
  10. IfConnects 2 1
  11. Revision 1                      { Set the Revision Level }
  12. DsplyMsg Step 1: Initializing modem ...
  13. CanBtn   41                     { If cancel button - just exit }
  14. SetTries 0                      { Initialize Tries to 0 }
  15. ChrDelay 2                      { Initialize Character Delay }
  16. SerReset ~BAUD 0 8 1            { Set the Baud Rate }
  17. HSReset  0 0 17 19              { Reset }
  18. DsplyPic 1                      { Display Picture 1 }
  19. MdmSetup                        { Send out user's premodem init string }
  20.  
  21. MatchStr 1 2   ~CMDOK           { Look for "OK" }
  22. MatchStr 2 49  ~CMDERR          { Look for "ERROR" }
  23.  
  24. wait 400
  25. Jump 2
  26.  
  27. -Label 1                { Label 0 } 
  28. Revision 1                      { Set the Revision Level }
  29. DsplyMsg ~ERCD, trying second number
  30. wait 500                        { Display first try error message }
  31. DsplyMsg Step 1: Initializing modem ...
  32. CanBtn   41                     { If cancel button - just exit }
  33. SetTries 0                      { Initialize Tries to 0 }
  34. ChrDelay 2                      { Initialize Character Delay }
  35. SerReset ~BAUD 0 8 1            { Set the Baud Rate }
  36. HSReset  0 0 17 19              { Reset }
  37. DsplyPic 1                      { Display Picture 1 }
  38. MdmSetup                        { Send out user's premodem init string }
  39.  
  40. MatchStr 1 2   ~CMDOK           { Look for "OK" }
  41. MatchStr 2 49  ~CMDERR          { Look for "ERROR" }
  42.  
  43. wait 400
  44.  
  45.  
  46. -Label 2                { Label 1 }
  47. Flush                           { Clear the Inbound/Outbound Buffers }
  48. MatchStr 1 3 ~CMDESC            { Look for "+++" }
  49. MatchStr 2 3 ~CMDOK             { Look for "OK" }
  50.  
  51. MdmEsc                          { Get the modems attention }
  52. Wait 200                        { Pause for 2 seconds, minimum gap required }
  53.                                 { The Wait will then look at the MatchStr(s) }
  54.  
  55. -Label 3                { Label 2 }
  56. MatchStr 1 4   ~CMDOK           { Look for "OK" }
  57. MatchStr 2 53  ~CMDERR          { Look for "ERROR" }
  58.  
  59. MdmDisc                         { Disconnect }
  60.                                 { Jump to label #3 if we see 'OK' go by }
  61. Wait 200                        { wait for 'OK' from modem }
  62. Jump 53                         { Exit stage left...time out error on modem }
  63.  
  64. -Label 4                { Label 3 }
  65. DsplyMsg Step 2: Dialing ~PRFX~CLWT~FONE ...
  66.  
  67. MatchStr 1  53  ~CMDERR         { ALWAYS look for "ERROR"      }
  68. MatchStr 2  57  ~NCTIMEOUT      { ALWAYS look for "TIMEOUT"    }
  69. MatchStr 3  25   CARRIER        { Look for "CARRIER"           }
  70. MatchStr 4  5    CONNECT 300    { Look for "CONNECT 300"       }
  71. MatchStr 5  6    CONNECT 1200   { Look for "CONNECT 1200"      }
  72. MatchStr 6  7    CONNECT 2400   { Look for "CONNECT 2400"      }
  73. MatchStr 7  8    CONNECT 4800   { Look for "CONNECT 4800"      }
  74. MatchStr 8  9    CONNECT 7200   { Look for "CONNECT 7200"      }
  75. MatchStr 9  10   CONNECT 9600   { Look for "CONNECT 9600"      }
  76. MatchStr 10 11   CONNECT 12000  { Look for "CONNECT 12000"     }
  77. MatchStr 11 12   CONNECT 14400  { Look for "CONNECT 14400"     }
  78. MatchStr 12 13   CONNECT 16800  { Look for "CONNECT 16800"     }
  79. MatchStr 13 14   CONNECT 19200  { Look for "CONNECT 19200"     }
  80. MatchStr 14 15   CONNECT 21600  { Look for "CONNECT 21600"     }
  81. MatchStr 15 16   CONNECT 24000  { Look for "CONNECT 24000"     }
  82. MatchStr 16 17   CONNECT 26400  { Look for "CONNECT 26400"     }
  83. MatchStr 17 18   CONNECT 28800  { Look for "CONNECT 28800"     }
  84. MatchStr 18 19   CONNECT 38400  { Look for "CONNECT 38400"     }
  85. MatchStr 19 20   CONNECT 57600  { Look for "CONNECT 57600"     }
  86. MatchStr 20 58  ~NCDIALTONE     { Look for "NO DIALTONE"       }
  87. MatchStr 21 51  ~NCANSWER       { Look for "NO ANSWER"         }
  88. MatchStr 22 54  ~NCVOICE        { Look for "VOICE"             }
  89. MatchStr 23 50  ~NCBUSY         { Look for "BUSY"              }
  90. MatchStr 24 55  ~NCCARRIER      { ALWAYS look for "NO CARRIER" }
  91.  
  92. SetTries 0                      { Initialize Tries to 0 }
  93. CanBtn   40                     { If cancel button hit, Jump to Label 40 }
  94. MdmDial ~TONE ~PRFX~CLWT~FONE   { Dial the Number }
  95.                        
  96.                                 { Don't forget that the Wait searches the }
  97.                                 { MatchStr(s) just defined above. }
  98. Wait 4800                       { Wait for CONNECT msg from modem }
  99. Jump 52                         { Else hang up phone & exit }
  100.  
  101.  
  102. -Label 5                { Label 5 }
  103. DsplyPic 2                      { Display Picture 2 }
  104. DsplyMsg Step 3: Connecting at 300 bps ...
  105. BaudSet 300
  106. Jump 26
  107.  
  108. -Label 6                { Label 6 }
  109. DsplyPic 2                      { Display Picture 2 }
  110. DsplyMsg Step 3: Connecting at 1200 bps ...
  111. BaudSet 1200
  112. Jump 26
  113.  
  114. -Label 7                { Label 7 }
  115. DsplyPic 2                      { Display Picture 2 }
  116. DsplyMsg Step 3: Connecting at 2400 bps ...
  117. BaudSet 2400
  118. Jump 26
  119.  
  120. -Label 8                { Label 8 }
  121. DsplyPic 2                      { Display Picture 2 }
  122. DsplyMsg Step 3: Connecting at 4800 bps ...
  123. BaudSet 4800
  124. Jump 26
  125.  
  126. -Label 9                { Label 9 }
  127. DsplyPic 2                      { Display Picture 2 }
  128. DsplyMsg Step 3: Connecting at 7200 bps ...
  129. BaudSet 7200
  130. Jump 26
  131.  
  132. -Label 10                { Label 10 }
  133. DsplyPic 2                      { Display Picture 2 }
  134. DsplyMsg Step 3: Connecting at 9600 bps ...
  135. BaudSet 9600
  136. Jump 26
  137.  
  138. -Label 11                { Label 11 }
  139. DsplyPic 2                      { Display Picture 2 }
  140. DsplyMsg Step 3: Connecting at 12000 bps ...
  141. BaudSet 12000
  142. Jump 26
  143.  
  144. -Label 12                { Label 12 }
  145. DsplyPic 2                      { Display Picture 2 }
  146. DsplyMsg Step 3: Connecting at 14400 bps ...
  147. BaudSet 14400
  148. Jump 26
  149.  
  150. -Label 13                { Label 13 }
  151. DsplyPic 2                      { Display Picture 2 }
  152. DsplyMsg Step 3: Connecting at 16800 bps ...
  153. BaudSet 16800
  154. Jump 26
  155.  
  156. -Label 14                { Label 14 }
  157. DsplyPic 2                      { Display Picture 2 }
  158. DsplyMsg Step 3: Connecting at 19200 bps ...
  159. BaudSet 19200
  160. Jump 26
  161.  
  162. -Label 15                { Label 15 }
  163. DsplyPic 2                      { Display Picture 2 }
  164. DsplyMsg Step 3: Connecting at 21600 bps ...
  165. BaudSet 21600
  166. Jump 26
  167.  
  168. -Label 16                { Label 16 }
  169. DsplyPic 2                      { Display Picture 2 }
  170. DsplyMsg Step 3: Connecting at 24000 bps ...
  171. BaudSet 24000
  172. Jump 26
  173.  
  174. -Label 17                { Label 17 }
  175. DsplyPic 2                      { Display Picture 2 }
  176. DsplyMsg Step 3: Connecting at 26400 bps ...
  177. BaudSet 26400
  178. Jump 26
  179.  
  180. -Label 18                { Label 18 }
  181. DsplyPic 2                      { Display Picture 2 }
  182. DsplyMsg Step 3: Connecting at 28800 bps ...
  183. BaudSet 28800
  184. Jump 26
  185.  
  186. -Label 19                { Label 19 }
  187. DsplyPic 2                      { Display Picture 2 }
  188. DsplyMsg Step 3: Connecting at 38400 bps ...
  189. BaudSet 28800
  190. Jump 26
  191.  
  192. -Label 20                { Label 20 }
  193. DsplyPic 2                      { Display Picture 2 }
  194. DsplyMsg Step 3: Connecting at 57600 bps ...
  195. BaudSet 28800
  196. Jump 26
  197.  
  198. -Label 25               { Label 25 }
  199. DsplyPic 2                      { Display Picture 2 }
  200. DsplyMsg Step 3: Connecting at ~BAUD bps ...
  201.  
  202.  
  203. -Label 26               { Label 26 }
  204. MatchStr 3 56  ~NCCARRIER      { ALWAYS look for "NO CARRIER" }
  205. MatchStr 4 27  UQKT1
  206. MatchStr 5 33  UQKT2
  207. MatchStr 6 27  ANSNET@@LOGIN
  208. MatchStr 7 30  UU.NET@@LOGIN
  209. MatchStr 8 30  SATURN.BBN@@LOGIN
  210. MatchStr 9 33  SPRINT-IP@@USERNAME
  211.  
  212. Wait 4800                       { Wait for MatchStr to find Hit }       
  213. Jump 52                         { Jump Out }    
  214.  
  215. -Label 27               { Label 27 }
  216. DsplyMsg Step 4: Requesting network attention ...
  217. Xmit aol\13                     { Send out AOL<CR> }
  218. DsplyMsg Step 5: Talking to network ...
  219. Jump 35
  220.  
  221. -Label 30               { Label 30 }
  222. DsplyMsg Step 4: Requesting network attention ...
  223.